home *** CD-ROM | disk | FTP | other *** search
/ PC World 2004 June / PCWorld_2004-06_cd.bin / software / vyzkuste / koolmoves / kmsetup.exe / {app} / Motion Scripts / Starburst / effect2.txt
Text File  |  2004-03-08  |  1KB  |  53 lines
  1. // main_init function
  2.  
  3. main_init = function(mc){
  4.  sub_delay = lastsubframe;
  5.  createEmptyMovieClip('sun',6);
  6.  with (sun){
  7.   lineStyle();
  8.   var colors = [suncolin,suncolout];
  9.   var alphas = [sunalphain,sunalphaout];
  10.   var ratios = [0,255];
  11.   var matrix = {matrixtype:'box',w:240,h:240,x:-120,y:-120,r:0};
  12.   beginGradientFill('radial',colors,alphas,ratios,matrix);
  13.   angle=deg180/5;r2=90;
  14.   moveTo(0,-120);
  15.   for (i=angle; i<=deg360;i+=angle){              
  16.    curveTo(Math.sin(i-angle/2)*50,-Math.cos(i-angle/2)*50,Math.sin(i)*r2,-Math.cos(i)*r2);
  17.    if (r2==120) r2=90 else r2=120;
  18.   }
  19.   endFill();
  20.   _xscale=_yscale=0;
  21.  }
  22. }
  23.  
  24. // main_effect function
  25.  
  26. main_effect = function(mc,frame){
  27.  sun._rotation += sunspeed;
  28.  if (subs_done) end_effect=true;
  29. }
  30.  
  31. // sub_init function
  32.  
  33. sub_init = function(mc){
  34.  mc.step = 0;
  35.  if (!out_effect) mc._alpha = 0;
  36.  mc.r = Math.max(mc._width,mc._height)-$padding+10;
  37. }
  38.  
  39. // sub_effect function
  40.  
  41. sub_effect = function(mc,frame){
  42.  prev_done = ($i>0 ? $smc[$i-1].done : true );
  43.  if (prev_done){
  44.   mc.step++;
  45.   perc = mc.step / lastsubframe;
  46.   sun._x = mc._x; sun._y = mc._y;
  47.   sun._xscale = sun._yscale = mc.r * Math.sin(perc * deg180);
  48.   if(perc == 0.5) mc._alpha = 100 - mc._alpha;
  49.   if(mc.step == lastsubframe) mc.done = true;
  50.  }
  51. }
  52.  
  53.